
	 tsset id year	 
	 xtbalance , range(2002 2019)
	 
	 
	     xtthres lnCE lnRENT lnTR GE, thres(FDI) dthres(lnICT)  min(10) bs1(500) bs2(500) bs3(300)
		 xtthres lnCE lnRENT lnTR GE, thres(CC) dthres(lnICT)  min(10) bs1(500) bs2(500) bs3(300)  
		 
		 xtthres lnCE lnRENT lnTR GE, thres(FDI) dthres(lnNET)  min(10) bs1(500) bs2(500) bs3(300)
		 xtthres lnCE lnRENT lnTR GE, thres(CC) dthres(lnNET)  min(10) bs1(500) bs2(500) bs3(300)  
		  
	 
	
		xttr_graph  
       xttr_graph, m(22) 
	    
       xttr_graph, m(21)
		  

	   dis e(rhat22)
	   dis e(rhat1)
       global q1 = min(e(rhat22),e(rhat1))   
	   dis "$q1"  
	   dis "$q2"  
	   dropvars d7 d8 lnICT_x_* 
	   gen d7 = (FDI<=$q1)                  
	   gen d8 = (FDI> $q2)
	   gen lnICT_x_FDI1 = lnICT*d7               
	   gen lnICT_x_FDI3 = lnICT*d8
	   local x "lnRENT lnTR GE"         
	   xtreg lnCE `x' lnICT_x_FDI* lnICT, fe       
	   est store fe
	   xtreg lnCE `x' lnICT_x_FDI* lnICT, fe robust 
	   est store fe_robust
	   local m "fe fe_robust"
	   esttab `m', mtitle(`m') nogap s(r2 r2_w N F) 
	          star(* 0.1 ** 0.05 *** 0.01)          
			  order(`x' lnICT_x_FDI1 lnICT lnICT_x_FDI3 )
			  

 //
		 dis e(rhat1)
       global q1 = e(rhat1)  
	   dis "$q1"  
	   dropvars d5 d6 lnICT_x_*  
	   gen d5 = (FDI<=$q1)
	   gen d6 = (FDI> $q1)
	   gen lnICT_x_FDI1 = lnICT*d5                
	   gen lnICT_x_FDI3 = lnICT*d6
	   local x "lnRENT lnTR GE"         
	   xtreg lnCE `x' lnICT_x_FDI* lnICT, fe       
	   est store fe
	   xtreg lnCE `x' lnICT_x_FDI* lnICT, fe robust 
	   est store fe_robust
	   local m "fe fe_robust"
	   esttab `m', mtitle(`m') nogap s(r2 r2_w N F) 
	          star(* 0.1 ** 0.05 *** 0.01)          
			  order(`x' lnICT_x_FDI1 lnICT lnICT_x_FDI3 )
	   
	 
			  


			  log close